structure Set = 
struct
  structure StringBSet = 
  BinarySetFn (struct
    type ord_key = string
    val compare = String.compare
  end)
  
  structure IntBSet = 
  BinarySetFn (struct
    type ord_key = int
    val compare = Int.compare
  end)
end